Функции пересечения

function ObjectsIntersect(o1,o2: ObjectWPF): boolean;
        Возвращает True если графические объекты пересекаются
function ObjectUnderPoint(x,y: real): ObjectWPF;
        Возвращает графический объект под точкой с координатами (x,y) или nil